home *** CD-ROM | disk | FTP | other *** search
- object FormDns: TFormDns
- Left = 406
- Top = 179
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'DNS Queries'
- ClientHeight = 399
- ClientWidth = 465
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poMainFormCenter
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 8
- Top = 10
- Width = 89
- Height = 17
- AutoSize = False
- Caption = 'Domain Name:'
- end
- object Label2: TLabel
- Left = 8
- Top = 42
- Width = 89
- Height = 17
- AutoSize = False
- Caption = 'IP Address:'
- end
- object Edit_Domain: TEdit
- Left = 96
- Top = 8
- Width = 225
- Height = 21
- HelpContext = 33
- TabOrder = 0
- end
- object Memo1: TMemo
- Left = 8
- Top = 72
- Width = 449
- Height = 289
- HelpContext = 38
- TabStop = False
- Color = clBlack
- Font.Charset = ANSI_CHARSET
- Font.Color = clWhite
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssBoth
- TabOrder = 5
- end
- object Edit_IP: TEdit
- Left = 96
- Top = 40
- Width = 105
- Height = 21
- HelpContext = 34
- TabOrder = 2
- end
- object Button2: TButton
- Left = 328
- Top = 6
- Width = 75
- Height = 25
- HelpContext = 36
- Caption = 'Get IP'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button4: TButton
- Left = 328
- Top = 38
- Width = 75
- Height = 25
- HelpContext = 37
- Caption = 'Query'
- TabOrder = 4
- OnClick = Button4Click
- end
- object ComboBox1: TComboBox
- Left = 208
- Top = 40
- Width = 113
- Height = 21
- HelpContext = 35
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- Items.Strings = (
- 'A Lookup'
- 'MX Lookup'
- 'PTR Lookup')
- end
- object Button1: TButton
- Left = 114
- Top = 368
- Width = 75
- Height = 25
- HelpContext = 39
- Caption = '&Save As'
- TabOrder = 6
- OnClick = Button1Click
- end
- object Button3: TButton
- Left = 194
- Top = 368
- Width = 75
- Height = 25
- HelpContext = 40
- Cancel = True
- Caption = '&Close'
- TabOrder = 7
- OnClick = Button3Click
- end
- object Button5: TButton
- Left = 276
- Top = 368
- Width = 75
- Height = 25
- Caption = '&Help'
- TabOrder = 8
- OnClick = Button5Click
- end
- object Dns: TDnsQuery
- Port = '53'
- OnRequestDone = DnsRequestDone
- Left = 416
- Top = 32
- end
- object Ping1: TPing
- Size = 56
- Timeout = 4000
- TTL = 64
- Flags = 0
- OnDnsLookupDone = Ping1DnsLookupDone
- Left = 408
- end
- end
-